structure Set = 
struct
  structure StringBSet = BinarySetFn (struct
                                        type ord_key = string
                                        val compare = String.compare
                                      end)
  
  structure IntBSet = BinarySetFn (struct
                                     type ord_key = int
                                     val compare = Int.compare
                                   end)
end